home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / ts2gmd.arc / TS2GMD.PAS < prev   
Pascal/Delphi Source File  |  1991-12-19  |  1KB  |  41 lines
  1. {$M 4096,0,1024}
  2. uses
  3.   dos,
  4.   crt,
  5.   (* Blaise Computing libraries *)
  6.   unit_sup,
  7.   unit_str,
  8.   unit_pgm;
  9. var
  10.   I : byte;
  11.   programname,
  12.   command : _Path;
  13.   error : word;
  14.   spawnerrorcode,
  15.   unarchivererrorcode : byte;
  16. begin
  17.   (* write copyright *)
  18.   Writeln;
  19.   Writeln;
  20.   Writeln(' ts2gmd v1.0 (c) 1991 r.soubie 2:324/1. tosscan to gmd i/f, use at will.');
  21.   Writeln;
  22.   (* parse command line supplied by tosscan or other *)
  23.   command := '';
  24.   For i := 2 to Paramcount do command := command + ' ' + Paramstr(i);
  25.   (* remove leading and multiple spaces, along with tabs, crs and lfs *)
  26.   command := __CvtStr(command,_REM_LEAD_WHITE_STR+
  27.                               _REDUCE_WHITE_STR+
  28.                               _DISCARD_STR);
  29.   programname := __CvtStr(Paramstr(1),_TO_UPCASE_STR);
  30.   (* spawn unarchiver (must be in path) *)
  31.   __SpawnPgm(programname,command,error);
  32.   (* store unarchiver's exit code *)
  33.   unarchivererrorcode := __WaitPgm(spawnerrorcode);
  34.   Writeln;
  35.   (* spawn GMD (must be in path) *)
  36.   __SpawnPgm('GMD.EXE','',error);
  37.   Writeln;
  38.   (* back to TosScan *)
  39.   Halt(unarchivererrorcode);
  40. end.
  41.